home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / Tutorial / Cookbook / 24.event_flags / MyView.m < prev    next >
Text File  |  1995-06-12  |  1KB  |  77 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "MyView.h"
  5. #import <appkit/Control.h>
  6.  
  7. @implementation MyView
  8.  
  9. - setNone:anObject
  10. {
  11.     none = anObject;
  12.     return self;
  13. }
  14.  
  15. - setControl:anObject
  16. {
  17.     control = anObject;
  18.     return self;
  19. }
  20.  
  21. - setAlternate:anObject
  22. {
  23.     alternate = anObject;
  24.     return self;
  25. }
  26.  
  27. - setCommand:anObject
  28. {
  29.     command = anObject;
  30.     return self;
  31. }
  32.  
  33. - setShift:anObject
  34. {
  35.     shift = anObject;
  36.     return self;
  37. }
  38.  
  39. - drawSelf:(NXRect *)list:(int)count
  40. {
  41.     NXEraseRect(&bounds);
  42.     return self;
  43. }
  44.  
  45. - mouseDown:(NXEvent *)thisEvent
  46. {
  47.     if (thisEvent->flags)
  48.         [none setIntValue:0];
  49.     else
  50.         [none setIntValue:1];    
  51.     
  52.     if (thisEvent->flags & NX_SHIFTMASK)
  53.         [shift setIntValue:1];
  54.     else
  55.         [shift setIntValue:0];
  56.         
  57.     if (thisEvent->flags & NX_CONTROLMASK)
  58.         [control setIntValue:1];
  59.     else
  60.         [control setIntValue:0];
  61.         
  62.     if (thisEvent->flags & NX_ALTERNATEMASK)
  63.         [alternate setIntValue:1];
  64.     else
  65.         [alternate setIntValue:0];
  66.  
  67.     if (thisEvent->flags & NX_COMMANDMASK)
  68.         [command setIntValue:1];
  69.     else
  70.         [command setIntValue:0];
  71.     
  72.     return(self); 
  73. }
  74.  
  75.  
  76. @end
  77.